home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1997 May / EnigmA AMIGA RUN 18 (1997)(G.R. Edizioni)(IT)[!][issue 1997-05][EAR-CD II].iso / recent2 / amicomsys.lha / AmiComSys / rexx / SendWEB.amicomsys
Text File  |  1997-04-18  |  565b  |  38 lines
  1. /* Send WEB-address to your browser
  2.  Currently supported is Aweb, Amosaic, Ibrowse and Voyager.
  3.  $VER: SendWEB.amicomsys (18.04.1997) Håkan Parting
  4. */
  5. parse arg args
  6. options results
  7.  
  8. if show('P','AWEB.1') then
  9. do
  10.     address 'AWEB.1'
  11.     OPEN args
  12.     Exit
  13. end
  14. if show('P','AMOSAIC.1') then
  15. do 
  16.     address 'AMOSAIC.1'
  17.     JUMP URL args
  18.     Exit
  19. end
  20. if show('P','IBROWSE.1') then
  21. do
  22.     address 'IBROWSE.1'
  23.     NewWindow "hej"
  24.     Exit
  25. end
  26. if show('P','IBROWSE') then
  27. do
  28.     address 'IBROWSE'
  29.     GOTOURL args
  30.     Exit
  31. end
  32. if show('P','VOYAGER') then
  33. do
  34.     address 'VOYAGER'
  35.     OPENURL args NEW
  36.     Exit
  37. end
  38.